%% Barrows Hall Heat Map Test Script
% BHHMTS

%% Setup
tic 
clear all
close all


%% Config
myImg='smalloutlinecopy2.gif';
myMap=jet(100);

%% Import Data
[a,b,c]=imread('smalloutlinecopy2.gif');


%% Plot Shapes
h_fig=figure(1);
h_img=image(a);
colormap(b);
hold on;

%% Plot Patches
%Room 290
R(290).p=[604 495;...
		608 495;...
		608 492;...
		621 492;...
		621 494;...
		634 494;...
		634 500;...
		641 500;...
		641 494;...
		655 494;...
		655 492;...
		670 492;...
		670 494;...
		678 494;...
		678 492;...
		693 492;...
		693 495;...
		706 495;...
		708 499;...
		708 592;...
		680 592;...
		680 582;...
		677 582;...
		677 591;...
		642 591;...
		642 587;...
		635 587;...
		635 591;...
		604 591];
R(290).t=85;
%Room 292
R(292).p=[498 495;...
		513 495;...
		513 492;...
		529 492;...
		529 495;...
		536 495;...
		536 493;...
		553 493;...
		553 495;...
		603 495;...
		603 591;...
		571 591;...
		571 588;...
		564 588;...
		564 591;...
		547 591;...
		547 585;...
		524 585;...
		524 591;...
		499 591];
R(292).t=75;
%Room 294
R(294).p=[451 494;...
		465 494;...
		465 492;...
		482 492;...
		482 495;...
		495 495;...
		496 570;...
		451 570];
R(294).t=70;
%Room 299
R(299).p=[428 617;...
		496 617;...
		496 715;...
		428 715];
R(299).t=70;

fill(R(290).p(:,1),R(290).p(:,2),myMap((R(290).t),:));
pause(2);
fill(R(292).p(:,1),R(292).p(:,2),myMap((R(292).t),:));
pause(2);
fill(R(294).p(:,1),R(294).p(:,2),myMap((R(294).t),:));
pause(2);
fill(R(299).p(:,1),R(299).p(:,2),myMap((R(299).t),:));

%% Prep Graph
%set(get(h_img,'parent'),'visible','off');
%set(get(h_img,'parent'),'position',[0 0 1 1]);
%set(h_fig,'position',[1 1 1200 733])


%% Export
I=getframe(1);
imwrite(I.cdata,'test.png');

%% Finish
close all;
